open(BUFF,"snps_chr23.tped") or die "no file exists\n";
while(<BUFF>)
{
	chomp($_);
	@a=split(" ",$_);
	shift(@a);
	shift(@a);
	shift(@a);
	shift(@a);
	@k = sort(uniq(@a));
	#print "@k\n";	
	if($k[0] eq "0")
	{
		shift(@k);
	}
	if(@k ==1)
	{
		print "$_\n";
	}
}
sub uniq {
    return keys %{{ map { $_ => 1 } @_ }};
}
